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NESTE NÚMERO 


MOVIMENTE FIGURAS NA TELA 


Rotinas em código dentro de programas BASIC. 
Como criar uma figura móvel na memória. O que 
são caracteres definidos pelo usuário. Movimen- 
to. Faça um tanque de guerra que atira e um sapo 
QUE: DUIA sagas saias e 341 





PROGRAMAÇÃO PARA JOYSTICKS 


Compatibilidade dos diferentes tipos de joystick. 
Utilização de joysticks em programas de jogos em 
BASIC. Como mover sprites com o joystick. Crie 
uma alça de mira animada. Um teste para seu joys- 
tick 





MAIS REQUINTE EM SEUS DESENHOS 


Como empregar SIN e COS na elaboração de de- 
senhos sofisticados. Faça um relógio mecânico. 
Como posicionar os números. Desenhe os pontei- 
ros. Acrescente um alarme. Como adicionar nú- 
meros romanos. O uso de funções matemáticas 
na criação de desenhos abstratos ........... 354 
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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 
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Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
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e o pagamento, incluindo as despesas postais, deverá ser efetuado ao se retirar 
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além do número da edição. 
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MOVIMENTE 





Não é só o programador experiente que 
pode se divertir com linguagem de 
máquina. Utilize alguns programas 
pequenos, escritos em código, para dar 
mais vida a seus programas em BASIC. 


Linguagem de máquina é coisa bem 
complicada. Para a maioria dos usuá- 
rios de micros, ela não passa de um 
amontoado de números sem sentido. 
Porém, se você usar algumas rotinas em 
código dentro de programas BASIC, lo- 
go notará as vantagens da linguagem de 
máquina e ficará mais motivado a en- 
frentar as dificuldades. 

Os programas que aqui apresentamos 
utilizam o BASIC para colocar progra- 
mas em código de máquina na memória 
do micro. Com isto, pode-se movimen- 
tar figuras em alta resolução muito mais 
rapidamente que usando só BASIC. 

Os programas são específicos para 
cada computador. O MSX e o Apple 
dispõem de comandos BASIC com ve- 
locidade satisfatória, e seus programas 
não precisam de linguagem de máquina 
para produzir os mesmos resultados dos 
outros micros. Já publicamos um pro- 
grama desse tipo para o ZX-81. 


Para montar os gráficos das figuras 
le 2, precisamos fazer três coisas. Pri- 
meiro, criar na memória do Spectrum 
a “grade” ou quadriculado que conte- 
rá o desenho em alta resolução. Esse 
quadriculado será composto por carac- 
teres definidos pelo usuário. Segundo, 
elaborar um programa que movimente 
o desenho na tela. Terceiro, trocar os ca- 
racteres gráficos no quadriculado pela 
figura que queremos mover — no nos- 
so caso, O tanque e O sapo. 


CARACTERES DEFINIDOS PELO USUÁRIO | 





O Spectrum permite ao usuário mu- 
dar o formato de determinados carac- 
teres (caracteres definidos pelo usuário, 


FIGURAS NATELA 


ou UDGs). Cada caractere é formado 
por 64 pontos — alguns com a cor do 
fundo (INK) e alguns com a cor da fren- 
te (PAPER) —, num arranjo de oito por 
oito. Desde que não ultrapassemos os li- 
mites deste quadrado, podemos escrever 
um programa que dê ao caractere o for- 
mato que desejarmos. 

Existem 21 caracteres desse tipo: A 
até U, inclusive. Como mostra a figura 
1, é possivel juntar os caracteres — con- 
juntos de oito por oito pontos — para 
formar figuras maiores. Pode-se ter, por 
exemplo, duas figuras com três por três 
caracteres ao mesmo tempo (ainda so- 
brarão 2 UDGs), ou cinco figuras com 
dois por dois caracteres. 

Tanto o sapo quanto o tanque apre- 
sentados neste artigo usam uma figura 
de três por três caracteres, mais ou me- 
nos assim: 


A-B E 
D E F 
GHA 


Pode-se colocar isto na tela empre- 
gando PRINT AT, em BASIC; porém, 
a melhor alternativa é usar a rotina em 
linguagem de máquina criada pelo pro- 
grama a seguir. 


10 IF PEEK 23733-127 THEN 


CLEAR 32399: LET B=32400: LET 



















ha 





pa COMO CRIAR UMA FIGURA 
” MÓVEL NA MEMÓRIA 
E MOVIMENTOS MAIS RÁPIDOS 
H UM SAPO QUE PULA E 
UM TANQUE QUE ATIRA 





Z=( 

20 JF PEEK 23733-255 THEN 
CLEAR 65199: LET B=65200: LET 
Z=1 

30 FOR N=B TO B+129: READ A: 
POKE N,A: NEXT N 

40 IF Z=l THEN POKE 65258, 
178: POKE 65259,254: POKE 
65277,179: POKE 65278,254 

50 SAVE "Padrao"CODE B,130 

60 STOP 
100 DATA 24,55,1,22,0,0,32,32, 
32,22,0,0,32,32,32,22,0,0,32, 
32 
110 DATA 32,22,0,0,144,145,146 
,22,0,0,147,148,149,22,0,0,150 
11351),152, 24 
120 DATA 0,0,153,154,155,22,0, 
0,156,157,158,22,0,0,159,160, 
161,58,146,126 
130 DATA 254,1,1,18,0,40,8,56, 
4,203,33,24,2,14,0,221,33,147, 
126,221 
140 DATA 9,58,197,92,71,62,24, 
144,221,119,1,60,221,119,7,60, 
221,119,13,58 
150 DATA 136,92,71,62,33,144, 
221,119,2,221,119,0,221,119,14 
,421,229,62,2,205 
160 DATA 1,22,209,1,18,0,205, 
60,32,201 


Talvez você ache que esta é uma ma- 
neira complicada de fazer o que alguns 
poucos PRINT AT fariam. Mas existem 
algumas razões para a substituição: 

1. Uma vez digitado e gravado, este pro- 
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DD 


E | 
| lui 
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grama pode ser usado quantas vezes vo- 
cê quiser. 

2. Quando chamada de dentro de um 
programa BASIC, a rotina criada impri- 
mirá os caracteres numa velocidade mui- 
to maior que os PRINT AÍ. 

Sem saber código de máquina é im- 
possível compreender o que os números 
de cada linha DATA significam, mas 
tentaremos dar uma idéia de como fun- 
ciona o programa em BASIC. 

As linhas 10 e 20 determinam onde 
a rotina em código será colocada, de- 
pendendo do tamanho da memória de 
seu Spectrum — 16K ou 48K. Note que 
os comandos podem não funcionar em 
micros de 16K com expansão. Se este for 
o caso, mude a linha 20 para: 


20 CLEAR 65199: LET B=65200: 
LET Z=] 


Os números incluídos nas linhas DA- 
TA são transferidos para a memória do 
computador pela linha 30. 

A linha 50 grava o programa. Você 
pode mudar o nome dele, se quiser. 

As linhas 100 a 160 contêm os núme- 
ros que, quando colocados na memória, 
formam a rotina em código. 

Esta rotina é gravada de uma manei- 
ra diferente. Após digitar e rodar o pro- 
grama, o computador pedirá ao usuá- 
rio que ligue o gravador e aperte qual- 
quer tecla, a fim de gravar a rotina em 
linguagem de máquina. 

Já que a rotina em código está den- 
tro da memória — colocada pelo pro- 
grama BASIC ou lida por meio do cas- 
sete —, vamos usá-la. Pressione NEW 
e ENTER, para que o programa antigo 
não atrapalhe o novo. 


io 
Fer. 












1. Desenho do tanque. Cada 
quadrado grande tem oito 
por oito pontos. 


20 LET print=-32400: LET B= 


32402: IF PEEK 23733=255 THEN 
LET print=65200: LET B=65202 
90 BORDER 7: PAPER 7: INK 4: 
CLS 

100 LET Y=B: LET X=15: LET Yl= 
8: LET X1l=15: LET Z=1 

110 LET AS=INKETS 

120 IF AS="2z" AND X>0 THEN 


LET Xl=X-1: LET Ze) 

130 IF A$="x" AND X<29 THEN 
LET Xl=X+1: LET Z=2 

140 IF AS="p” AND Y>20 THEN 
LET Yl=Y-1 

150 IF A$="1" AND Y<18 THEN 
LET Yl=T+1 
170 LET X=X1: 
180 PRINT AT Y,X;: 
RAND USR print 

190 GOTO 110 


LET Y=Y1 
POKE B,Z: 


Note que a palavra “print” em mi- 
núsculas deve ser digitada letra por le- 
tra, ao contrário de PRINT, que fica na 
tecla P, 

Este programa permite a movimen- 
tação de figuras na tela usando as teclas 
Z, X, Pe L. Quando ele for rodado, ve- 
remos que foram criadas duas figuras 
com três por três caracteres; a segunda 
é formada por JXKLMNOPQR, Pode-se, 
assim, obter duas versões do mesmo grá- 
fico. No caso do tanque, um aponta pa- 
ra a direita, quando vai nesta direção, 
e outro aponta para a esquerda, quan- 
do se movimenta para a esquerda. 

Veremos também que, conforme a fi- 
gura se move, deixa para trás um rastro 
que não foi planejado. Para corrigir is- 
to, acrescente a linha: 


160 PRINT AT Y,X;: POKE B,O0: 
RAND USR print 


dio — 





mio — 








Ela produz uma figura de três por 
três caracteres em branco, que val apa- 
gando as posições já ocupadas. 


UM TANQUE DE GUERRA 





Para transformar os caracteres na fi- 
gura de um tanque, acrescente as próxi- 
mas linhas. Elas montam o tanque apon- 
tando para a direita no quadriculado 1 
€ para a esquerda no quadriculado 2. 


10 FOR N=USA "a" TO USAR “r"+7 
: READ A: POKE N,A: NEXT N 
1000 DATA 0,0,0,0,0,0,0,0,0,0,0 
,/0,0,0,0,0 
1010 DATA 0,0,0,0,0,0,0,0,0,0,0 
,/0,255,0,1,0 
1020 DATA 0,0,1,63,255,255,255, 
0,0,0,192,224,254,254,224,0 
1030 DATA 63,127,255,122,48,6,0 
,0,255,255,255,235,65,102,0,0 
1040 DATA 255,255,255,174,6,100 
10,0 
1050 DATA 0,0,0,0,0,0,0,0,0,0,0 
,10,0,0,0,0 
1060 DATA 0,0,0,0,0,0,0,0,0,0,3 
7,187 ,127,7,0 
1070 DATA 0,0,128,252,255,255,2 
55,0,0,0,0,0,255,0,128,0 
1080 DATA 255,255,255,117,96,38 
,0,0,255,255,255,215,130,102,0, 
O 
1090 DATA 252,254,255,94,12,96, 


Resta criar os dois caracteres que irão 
“armar” o tanque. Aperte BREAK e di- 
gite: 

10 FOR N=USR "a" TO USR "tL"+7 
: READ A: POKE N,A: NEXT N 

115 IF INKEYS$=" * THEN GOTO 
200 

200 IF Z=2 THEN GOTO 300 


io 














210 FOR N=X-1l TO O STEP -1 


220 PRINT INK 5;AT Y+1,N;CHRS 
162 

230 PAUSE 1 

240 PRINT AT Y+1,N;” * 

250 NEXT N 


260 GOTO 110 

300 FOR N=X+3 TO 31 

310 PRINT INK 5;AT Y+1,N;CHRS 
163 

320 PAUSE 1 

330 PRINT AT Y+1,N;" * 

340 NEXT N 

350 goTo 110 

1100 DATA 0,4,9,2,176,2,9,4,0,3 
2,144,64,13,64,144,32 


Agora a tecla SPACE pode ser usa- 
da para dar tiros. 


UMSAPO | 


Para transformar as figuras em um 
sapo, você precisará livrar-se do tanque. 
Para isso, grave O programa e depois 
pressione <NEW> e <ENTER>. 

O tanque e o programa que o movi- 
mentava serão anulados, mas a rotina 
em código que cuida do quadriculado 
permanecerá na memória até que o mi- 
cro seja desligado. 

Digite CLEAR 32399 no Spectrum de 
16K, ou CLEAR 65199, no de 48K, re- 
servando o topo da memória para a ro- 
tina em código. Digite, depois, LOAD 
“ CODE e ligue o gravador para car- 
regar a rotina em código do cassete. 

Com a rotina na memória do micro, 
digite e rode o programa que cria o sapo. 


30 RESTORE 5000: FOR N=USR ” 
a” TO USR "r"+7: READ A: POKE N 
sã: NEXT N 
5000 DATA 0,0,0,0,0,0,0,0,0,0,0 
:0,0,0,0,0 
5010 DATA 0,0,0,0,0,0,0,0,0,0,0 
,/0,0,0,1,1 
5020 DATA 0,0,0,0,0,128,192,176 
,:10,0,0,0,0,0,0,0 
5030 DATA 4,15,31,63,127,254,24 
8,127,96,240,224,192,64,32,156, 
192 
5040 DATA 0,0,0,0,0,0,0,0 
5050 DATA 0,0,0,0,0,0,0,0,0,0,0 
Dado ST 
5060 DATA 8,28,27,70,255,254,25 
2,249,0,0,0,0,0,0,0,0 
5070 DATA 7, 7.18, 30, 54,38,70,70 
/250,196,C, 0,0,0,0, 0 
5080 DATA 0,0,1,1,3,6,2,0,140,1 
44,16,32,32,48,32,0 
5090 DATA 0,0,0,0,0,0,0,0 


Para controlar o movimento do sa- 
po, digite: 


mio — 
Lt dad 





10 BORDER O: PAPER O: INK 4: 
BRIGHT 1: CLS 
20 LET P=32400: IF PEEK 23733 


=255 THEN LET P=65200 
100 PRINT AT 10,0;: RAND USR P 
: IF INKEYS$="" THEN GOTO 100 
110 RESTORE 1000: FOR F=1 TO 5 
120 READ A,B,C: POKE P+2,A: 
PRINT AT B,C;: RAND USR P 
130 PAUSE 2: CLS : NEXT F 
150 PRINT AT 10,12;: RAND USR 
P: IF INKEYS="" THEN GOTO 150 
200 FOR F=1 TO 5 
210 READ A,B,C: POKE P+2,A: 
PRINT AT B,C;: RAND USAR P 
220 PAUSE 2: CLS : NEXT F 
230 GOTO 100 
1000 DATA 1,10,0,2,7,3,2,5,6,2, 
7,9,1,10,12,1,10,12,2,7,15,2,95, 
18,2,7,21,1,10,24 





O Apple não precisa de linguagem de 
máquina para movimentar uma figura 
em alta resolução: basta criar uma ta- 
bela de figuras na memória do micro e 
usar o comando DRAW. 

Se não dispusermos de um editor de 
figuras, o trabalho poderá ser bem com- 
plicado. Mas você não será obrigado a 
usá-lo, pois o programa a seguir cria O 
tanque e o movimenta. 


10 HOME :E = 35000: HIMEM: E 
20 F = INT (E / 256): POKE 232 
E - F * 256: POKE 233,F 

30 FOR I = ETOE+dá4]+lI4x* 
32 

40 READ A: POKE I,A 


50 NEXT 

60 HGR : SCALE= 1: ROT= 0:X = 
130:Y = 90:F = O: GOTO 410 

70 LX = K:LY = T:;LF = F 

BO GET KS: IF KS = "” THEN 80 
90 IF KS = "P”" AND Y > 10 THEN 
VT -gzZ: GOTO 140 

100 IF KS$ = "L” AND Y < 140 TH 
EN Y = Y + 2: GOTO 140 


110 IF K$ = "Z” AND X > 12 THE 
NX =X-3:F=-O0O GOTO 140 
"XxX" AND X < 220 TH 


120 IF K8 = 

EN X = X+ 3:F = 1: GOTO 140 
130) IF KS =" * THEN 490 

140 IF LX = X AND LY = Y THEN 
80 

150 IF LF = O THEN 250 

160 HCOLOR= O 

170 DRAW 1 AT LX,LY 

180 DRAW 2 AT LX,LY + 8 

190 DRAW 3 AT LX + 8,LY 

200 DRAW 4 AT LX + B,LY + 8 
210 DRAW 5 AT LX + 16,LY 

220 DRAW 6 AT LX + 16,LY + 8 
230 IF F = O THEN 410 

240 GOTO 330 


io —: 





o ESSE: 


250 HCOLOR= 0 

260 DRAW 9 AT LX,LY 

270 DRAW 10 AT LX,LY + 8 

280 DAAW 11 AT LX + B,LY 

290 DRAW 12 AT LX + B,LY + 8 

300 DBAW 13 AT LX + 16,LY 

310 DRAW 14 AT LX + 16,LY + B 

320 IF F=OTHENA4IO 

330 HCOLOR= 3 

340 DRAW 1 AT X,Y 

350 DRAW 2 AT X,Y + 8B 

360 DEBAW 3 ATX + B,Y 

370 DRAW 4 ATX + B,Y + B 

380 DRAW 5 AT X + 16,7 

390 DRAW 6 ATX + 16,7 + 8 

400 GOoTo 70 

410 HCOLOR= 3 

420 DRAW 9 AT X,Y 

430 DRAW 10 AT X,Y + 8 

440 DRAW 11 AT X + B,Y 

450 DRAW 12 AT X+B,7 + 8 

460 DRAW 13 AT X + 16,Y 

470 DRAW 14 ATX + 16,7 + 6 

480 GoTo 70 

490 IF F = O THEN S60 

500 HCOLOR= 3 

510 DRAW 7 ATX + 24,Y 

520 FOR I = 1 TO 100: NEXT 

530 HCOLOR= O 

540 DRAW 7 AT X+ 24,Y 

550 GOTO BO 

560 HCOLOR= 3 

570 DRAW BAT X - B,Y 

580 FOR I =1 TO l00: NEXT 

590 HCOLOR= Q 

600 DRAW BAT X - 8,Y 

610 coTo B0 

2000 DATA 20 ,0 ,42 ,0 ,74.,0 
106. ,0 41138 40 170 4,0 ,d2» 

O cod O 10 4d 42 4d AA qd 
106 ,1 ,138 sl 1470 sÃ p4D2 ed 
234 ,) «10 ,2 ,42 ,2 74 (ls 

106 ,2 ,138 ,2 

2010 DATA Pê fd ui gado + 

219 ,219 ,74 ,73 ,41 ,213 ,63 

LL) 2455 441) 145 ,45 2473 409 é 

63 ,63 ,191 ,73 4,9 +45 «213 2) 

9 ,219 ,19 ,0 ,0 ,0,0 

2020 DATA 40 45 ,45 145 [ 

213 ,63 ,63 63 ,55 ,45 45 ,45 
1173 251 ,31 ,63 587 ,109 ,73 
209,59. 223 159 473 073 43 


7 ,219 ,219 ,155 ,0 ,0 ,0 
2030 DATA Tê 73 vt3 218 
219 ,219 ,106 ,73 ,73 ,218 ,59 


5/63 ,63 ,46 ,45 ,45 ,45 ,2153 ,6 
3 ,63 ,63 ,55 ,45 ,45 ,45 ,173 
,219,219 ,155 ,0 ,0, 0 
2040 DATA 40 ,45 ,45 ,45,, 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
73 499. 1855: s9l god vit std 
141 ,27 ,255 ,59 4,97 73 473» 
209 ,219 ,219 ,19 ,0 ,0 
2050 DATA PE fd vi3 
(1219 5219 ,74 073 (73 218 219 
219 ,42 ,45 ,45 ,45 ,213 ,219 
219 ,19 ,77 ,73 ,137 ,219 «êl 
9 ,155,0,0,0 ,0 ,0 ,0 
2060 DATA 40 ,45 ,45 ,77 
218 ,63 ,63 ,63 ,46 ,45 ,45 ,45 
5413 159 163 3 5187 73 1109 
209 ,219 ,27 ,19) ,73 673 0437 


,218 








Ê | 
É | 





210 «210 ,155 ,0. ,0 40 lor de LF. As linhas 330 a 480 dese- 90: RETURN | 
2070 DATA, 72 073 ,73 ,218 nham-no na nova posição, conforme o 1800 X = 30:Y = 90: RETURN 
219 ,251 ,106 ,105 ,73 ,218 ,2 valor de F. 2000 DATA 20,0 ,42 ,0 ,74, 
ie A o o ds Ds Note que as linhas DATA 2000 a O .106,0 ,138 ,0 ,170 ,0 ,202 
219 83 077 7? vAST 819, +21) à O 48. EO dO CÊ gt? sd q ad 
| | 2140 foram geradas com o programa E | 
(159 0 50 O 50 O O O á n É) E 1.106 .d 138 ri 170 e | 1202 1] 
2080 DATA 72,73 ,73 ,218 editor apresentado no artigo da página "do 2 42,2,74 4,2 


28) 249 474: 49 »77 «013 «291 316. Os blocos do tanque são numera- 106,2 ,138 ,2 
,219 ,19 ,13 ,109 ,73 ,218 ,223 dosdecima para baixoe, depois, daes- 910 DATA  0,72,73,73 ,21 


O TA O SAT salA vêr aAI querda para a direita. E PIO cSIO PO 473 593 DDS 
158 40 40 +00 ,0/,0 ,0 | HCOLOR=3 desenha o tanque em 19,219 ,74 ,73 ,73 ,218 ,219, 
2090 DATA 72 vtI 73 228 branco. Se utilizarmos HCOLOR=1, 219 ,74 ,73 ,9 ,213 ,223 ,219 , 


219 ,219 ,74 ,73 ,73 ,218 ,219 teremos a cor verde, mas o desenho se- 19,0 ,0,0,0,0,0 

1219 ,42 ,45 ,45 ,45 ,213 ,219 rá ligeiramente deformado. Isto ocorre 2020 DATA 0,72 ,73,77 ,26 

Ro fe “ida id Gu a Vis "21 devido à maneira como o Appleusaas +63 ,255 ,155 ,73 ,45 ,45 Arda 
| | ' ] ' ] b : - m 163 163 255 +10 45 ,/45 4 Ê 

2100 DATA 72 .45 ,45 ,173 cores em alta resolução. 


| 213 89 ,63 ,63 ,95 ,45 ;45 477 
59 ,63 ,63 ,191 ,45 ,45 ,45 ,1 ,209 ,63 ,63 ,63 ,23 
Pa 7? 3E AS 49 4 ADD AS 7 2030 DATA O .J2 73 ,73 di 
,218 ,255 ,219 ,74 ,73 ,73 ,21 E «SIS 219 ,2Ã 073 043 (248) 58 
9 219º ,219 ,2 40 40, 0 | 1 910, JA 73 adS DIO Ri, 
2110 DATA TE pI nd AEB | 210 46 PI? ,73 4200 Ito 459 , 
“DO 219 JA JB vo 213,63 |; O programa a seguir monta uma ta- 34) 6,0,0,0,0,0 
63 ,255 ,42 ,45 ,45 ,45 ,213 ,6 bela correspondente ao sapo da figura 2. 2040 DATA 0.8 ,109 ,73 .20 
3,63 ,63 ,55 ,45 ,45 ,45 ,173 9 219 ,59 ,63 .46 ,109 ,73 ,20 
(219 ,219 155 ,0 ,0.,0 l0 HOME :E = 35000: HIMEM: E S 210, 210 4119577 , 13 2209 ; 
2120 DATA 40 ,45 ,45 ,45 , 20 POKE 233, INT (E / 256): PO 219,27 ,159,73 ,45 ,77 .218 , 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 KE 232,E - 256 * PEEK (233) 219: ,219 ,? ,0.,0 40 ,ó 
AA RO SS TA AI SIA ST So Ata eia o X pot x 2050 DATA ESSA AS FIA n2l 
- . A: | À 2élO 210 VIA 473 std 26 vê? 
159 alo 219 1s600, 0 7) 7 do OA E BONE LDO, 35219583 ,53 ,9 0153 ,87 .088 
46 RAPR 72 73,73 ,218 E reprint DO IA 73 308 218 5219", 


19 ,2 ,0 ,0 ,0 ,0 ,0 
2060 DATA O 42. 73 73 81 
O ,219 219 74 073 073 5218 ,4 


219 .210 ,42 ,77 173 1209 219 q | | Ds a 
42 477 973 + O GET K$: IF K$< > THE 
,27 ,63 ,46 ,45 ,45 ,109 ,218 aa : 


165 ,63 163 ,46 ,109 ,73 ,209 , 130 cosUB 1200: GOSUB 1000 | 7 
219 ,219 ,19,0 ,0,0 40 140 GOSUB 1500: GOSUB 1300 do Na SO Ra RO DR 
2140 DATA 40 ,45 ,45 ,45, 150 GOSUB 1040: GOSUB 1400 redhat MU o A OP 
213 ,63 163 ,63 ,55 145 ,45 ,45 160 GOSUB 1200: GOSUB 1500 o CDA O CO Da RA 
11h73 +27 269 031 031.78 +73 + 170 GOSUB 1040: GOSUB 1300 Us Cada sas Cos US AR “a 
109 ,218 ,251 ,59 ,87 ,73 ,73 , 180 GOSUB 1600: GOSUB 1040 E ão ces Soa Da Von hem à 
PRRIRRES NR ARDE A em 140 GOSUB 14004 GOSUB Lav 18,255. 4251 410 477 «al çãa ; 
A linha 10 reserva o topo da memória 200 GOSUB 1600: GOSUB 1040 2? 255 27 23 00 10,0 
para a tabela de figuras. O Appleéentão 20 O DO: cosus 1400 2080 DATA O ,104,9,109 ,2 
informado da localização da mesma pela 259 OOBUB 1200: GO8UB 1700 99,218, -25,38 277 273 AE 
uInna su. ai pd as unhas à 240 GOSUB 1000: GOTO 100 SO ME Pd PT 23.918 “219 
50 monta a tabela na memória. 1000 DRAW 1 AT X,Y ei A E PEDRE e di "E 
A linha 60 liga a tela de alta resolu- 1010 DBAW 2 ATX.Y+B 
ção, estabelece a escala e a orientação 1020 DRAW 3 ATX + 8,Y 
do desenho. Além disso, coloca as coor- 1030 DRAW 4 ATX + 8,Y + 
denadas do centro da telaem X e Y. Em 1035 RETURN 
seguida, o programa é desviado para a 1040 DRAW 5 AT X,Y 
linha 140, para que uma imagem inicial 1050 DRAW 6 AT X + 8,Y - 
| | 1060 DRAW 7 ATX+B,T - 
do tanque seja feita. 
1070 DRAW BATX+B,Y 
As linhas 70 a 140 movimentam o 1080 DRAW 9 AT X + 16 





tanque através das teclas Z, X, PeL. vy- 16 

Tratam também de não deixá-lo ultra- 1090 DRAW 10 AT X + 16, 

passar os limites da tela. As variáveis F y-s 

e LF são sinalizadores que indicam a di- 1100 RETURN 

reção atual e antiga do tanque; dese- 1200 HCOLOR= O: 

nham e apagam a figura na orientação RETURN 

correta. A linha 140 evita que o tanque 1300 HCOLOR= 3: 

seja apagado e desenhado, sem sair do 06 e 

lugar. A linha 130 verifica se a tecla de TO 200: NEXT 

espaço foi pressionada, saltando paraa 4410 RETURN 

linha 420, onde começa a porção do 1500 x = 90:Y - 

programa que dispara um tiro — na di- 50: RETURN 

reção correta! 1600 X = 160:Y = 
As linhas 150 a 320 apagam o tanque 50: RETURN 

de sua última posição, conforme o va- 1700 X = 230:Y = 











ME PERA E To 


5219 , O | | 50 O 


2090 DATA O 72 ,9 .!7 209 
127 ,63 223 74 ,41 ,13 ,173 
27 ,255 ,27 ,83 ,45 ,45 ,45 ,l 


3 ,2f ,63 ,63 ,63 ,46 ,45 ,45 


77 «26 1229 .63 63 

2100 DATA '* 0,40 ,45 ,109 ,1 
dE DO ASI OS IS 473 7 
Lô ,219 ,219 ,74 ,23 ,73 218, 
219 ,219 ,74 ,73 ,73 ,218 ,219 


219 E. 0 O +, | 50 


Use a barra de espaço para fazer o 
sapo pular. 


Para definir e mover os desenhos das 
figuras | e 2, precisamos fazer três coi- 
sas. Primeiro, criar na memória do com- 
putador uma '“grade”' ou quadriculado 
onde possamos desenhar o que quiser- 
mos. Este quadriculado será composto 
por caracteres definidos pelo usuário. 
Segundo, transferir o padrão do dese- 
nho desejado — representado por nú- 
meros em linha DATA — para o qua- 
driculado. Terceiro, elaborar um pro- 
grama em BASIC que desenhe e movi- 
mente o tanque e O sapo. 

Um caractere definido pelo usuário 
(UDG) é um *'quadro””, dentro do qual 
se coloca parte de um desenho em alta 
resolução. O quadro é composto por 64 
pontos dispostos num arranjo de 
oito por oito pontos. Cada pon- 
to pode ser preto ou branco em 
PMODE 4,1 (este é o PMODE 
mais flexivel; em outros é 
preciso definir dois ou qua- 
tro pontos de cada vez). | 

Se colocarmos vários desses caracte- 
res lado a lado, poderemos construir de- 
senhos maiores e mais detalhados. A di- 
ferença de outros computadores, o TRS- 
Color não possui UDGs embutidos. 
Mas porções de sua memória se compor- 
tarão como tal, se fizermos um progra- 
ma para isto. 

Teoricamente, dispomos de espaço 
para criar muitos caracteres, mas seria 
trabalhoso usar vários deles. Na práti- 
ca, quatro ou cinco bastam. 





COMO CRIAR O QUADRICULADO 


Para produzir o tanque da figura 1, 
ou o sapo da figura 2, precisamos pri- 
meiro fazer com que uma porção da me- 
mória se comporte como UDGs. Os dois 
desenhos requerem um quadriculado de 
três por três caracteres — 24 por 24 
pontos. 

Se usássemos o BASIC para desenhar 
uma figura destas, precisariamos de um 





PSET para desenhar cada ponto, ou se- 
ja, 576 PSET ao todo. Assim, um pro- 
grama em linguagem de máquina será 


mais rápido, 
Digite: 
10 CLEAR 200,32000 


20 FOR 1=32000 TO 32110 
30 READ N 


40 POKE I,N 

50 NEXT 

60 CLS 

90 PRINT "APERTE QUAL 


QUER TECLA PARA 
GRAVAR O PROGRAMA EM 
LINGUAGEM DE MAQUI 
NA” 

100 B$=INKEYS 
11 IF B$="" THE 
N 100 

120 CSAVEM "P 
RPADRAO”, 
32000,321 
10,32000 









































130 DATA 190,127,188,134,3,183, 
125,111,183,125,112,134,8,183,1 
25,113 

140 DATA 182,125,250,39,50,206, 
126,44,74,198,72,61,51,203,166, 
192 

150 DATA 167,132,48,136,32,122, 
125,113,38,244,134,8,183,125,11 
3,48 

160 DATA 137,255,1,122,125,111, 
38,230,134,3,183,125,111,48,137 
O 


170 DATA 253,122,125,112,38,216 
197 ,95,231,132,48,136,92,122,12 
5.113 

180 DATA 38,246,134,8,183,125,1 
13,40,197,455,1,122,125,111,368, 
232 

190 DATA 134,3,183,125,111,48,1 
37,0,253,122,125,112,38,218,57 


Este programa cria um outro, em lin- 
guagem de máquina. Sua gravação deve 





























| ser feita pelo próprio programa; portan- 


to, tenha o gravador por perto — os pro- 
gramas aqui apresentados não funcionam 
com o drive de disquetes conectado. 

Além de produzir desenhos em alta 
resolução numa velocidade muito maior, 
o programa em código ocupa bem me- 
nos memória que uma rotina BASIC. 

Se você conhece a linguagem de má- 
quina do 6809, não entenderá o que os 
números nas linhas DATA significam, 
mas pode ter uma idéia de como funcio- 
na o programa em BASIC. 

A linha 10 reserva a memória neces- 
sária para acomodar o programa em có- 
digo. As linhas 90 a 120 transferem o 
programa da memória para a fita. 





UM TANQUE DE GUERRA 


Para desenhar o tanque são necessá- 
rias duas figuras de três por três carac- 
teres — uma para o tanque apontando 
para a direita e outra para o tanque que 
aponta para a esquerda. 

Digite NEW para anular o programa 
antigo — o programa em código perma- 
necerá na memória. Este novo progra- 
ma cria O tanque mas, por enquanto, 
não o desenha. 


LO CLEAR 200,32000 

20 FOR 1=32300 TO 32443 
30 READ N 

40 POKE I,N 

50 NEXT 

60 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
:/0,0,0,0,0,0,0,0,0,0,0,0 

70 DATA 0,0,3,/,127,127,7,0,0,0 
| 128,252,255,255,255,0 

B0 DATA 0,0,0,0,255,0,128,0,255 
,255,255,117,96,38,0,0 

90 DATA 255,255,255,215,130,102 
,/0,0,252,254,255,94,12,96,0,0 
100 DATA 0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0 

110 DATA 0,0,0,0,255,0,1,0,0,0, 


















1,63,255,255,255,0 
120 DATA 0,0,192,224,254,254,22 
4,0,63,127,255,122,48,6,0,0 

130 DATA 255,255,255,235,65,102 
,0,0,255,255,255,174,6,100,0,0 


Para desenhar e mover o tanque, 
acrescente as próximas linhas ao progra- 
ma anterior: 


5 PCLEAR 5 

170 PMODE 4,1 

180 PCLS 

290 PCLS 

300 SCREEN 1,1 

310 T=1 

320 TP=3500 

330 POKE 32700, INT(TP/256) 

340 POKE 32701, TP-256*INT(TP/25 
6) 

350 POKE 32250,T 

360 EXEC 32000 

370 LP=TP 

380 IF PEEK(338)=251 THEN TP=TP 
-32:GOTo 440 

390 IF PEEK(342)=253 THEN TP=TP 
+32:GOTOo 440 

400 IF PEEK(340)=247 THEN TP=TP 
-1:T=2:Go0To 440 

410 IF PEEK(338)=247 THEN TP=TP 
+1:T=1:GOTO 440 

430 GOTO "380 

440 IF TP<1536 OR TP>6941 THEN 

TP=LP 

470 GOTO 330 


Agora digite RUN; usando as teclas 
P,L,ZeX, você poderá mover o tan- 
que. Este deixará um rastro atrás de si. 
Para evitar o problema, digite: 


450 POKE 32250,0 
460 EXEC 32000 


Estas linhas usam o programa em có- 
digo para imprimir uma figura compos- 
ta por caracteres em branco. 

Para que o canhão atire, acrescente 
mais algumas linhas ao programa. Vo- 
cê poderá fazê-lo por meio da barra de 
espaço. 


160 DIM A(2),B(2),C(2) 

190 FOR 1=1536 TO 1760 STEP 32 
190 FOR 1=1536 TO 1760 STEP 32 
200 READ N 

210 POKE I,N 

220 NEXT 

230 GET (0,0)-(7,7),A 

240 FOR 1=1536 TO 1760 STEP 32 
250 READ N 

260 POKE I,N:NEXT 

420 IF PEEK(345)=247 GOSUB 500 
480 DATA 0,32,144,64,13,64,144, 
32 

490 DATA 0,4,9,2,176,2,9,4 

500 IF T=2 THEN 560 

510 YP=INT((TP-1536)/32)+8 

520 XP=8*(TP-1533-(YP-8)*32) 
530 IF XP>255 THEN 620 

550 GOTO 600 
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2. Desenho do sapo. A figura pula quado se pressiona a 


560 YP=INT((TP-1536)/32)+8 
570 XP=8*(TP-1537-(YP-8)*32) 
580 IF XP<O THEN 620 

PUT (XP,YP)-(XP+7,YP+7),B 
600 FOR I=1l TO 100:NEXT 

PUT (XP, YP)-(XP+7,YP+7),C 
620 RETURN 





UM SAPO 


A figura 2 mostra o desenho de um 
sapo. Depois que ele for transferido pa- 
ra o quadriculado da memória e puder 
ser controlado pelo programa em BA- 
SIC, sairá pulando tela afora. 

Para transferir o desenho do sapo pa- 
ra o quadriculado, utilize o programa a 
seguir. Antes, porém, use NEW para 
limpar a memória ocupada pelo BASIC. 


10 CLEAR 200,32000 

20 FOR 1=32300 TO 32443 

30 READ N 

40 POKE I,N:NEXT 

60 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
:0,0,0,0,0,0,0,0,0,0,0,0 

70 DATA 0,0,0,0,0,0,1,1,0,0,0,0 
,/0,128,192,176 

80 DATA 0,0,0,0,0,0,0,0,4,15,31 
,63,127,254,248,127 

90 DATA 96,240,224,192,64,32,15 
6,192,0,0,0,0,0,0,0,0 

100 DATA 0,0,0,0,0,0,0,0,0,0,0, 
0,0,1,3,7,8,28,27,70,255,254,25 
110 DATA 0,0,0,0,0,0,0,0,7,7,15 
,130,62,54,70,70 

120 DATA 250,196,0,0,0,0,0,0,0, 
0,1,1,3,6,2,0 

130 DATA 140,144,16,32,32,48,32 
10,0,0,0,0,0,0,0,0 


Para fazer o sapo pular, digite NEW 
e, em seguida, este programa: 


10 PCLEAR 5 

20 PMODE 4,1 

30 PCLS 

40 SCREEN 1,1 

50 FP=4487 

60 POKE 32700,17 


tecla de espaço. 


70 POKE 32701,135 

80 POKE 32250,1 

90 EXEC 32000 

100 IF PEEK(345)<>247 THEN 100 
110 RESTORE 

120 FOR I=1 TO 5 

130 READ F,FD 

140 POKE 32700, INT(FP/256) 

150 POKE 32701,FP-256*INT(FP/25 
6) 

160 POKE 32250,F 

170 EXEC 32000 

180 FOR J=1 TO 70:NEXT 

190 POKE 32250,0 

200 EXEC 32000 

210 FP=FP+ED 

220 NEXT 

230 GOTO BO 

240 DATA 1,-287,2,-253,2,258,2, 
291,1,0 


Os números da linha DATA no finál 
do programa fazem o sapo descrever um 
arço quando pressionamos a barra de es- 


paço. 

O BASIC do MSX dispensa o uso de 
linguagem de máquina, pois dispõe de 
comandos gráficos poderosos e é sufi- 
cientemente rápido para criar e movi- 
mentar figuras em alta resolução. 


O programa a seguir cria e movimen- 
ta o tanque da figura 1. 


5 CLEAR 300:COLOR 12,15,12 

10 SCREEN 1,3:KEY OFF 

20 FOR I-1 TO 16*8 

30 READ A:AS=AS+CHRS (A) 

40 NEXT T 

50 SPRITES (0) =LEFTS(AS,32) 

60 SPRITES (1)=MIDS(AS,33,32) 
70 SPRITES(2)-MIDS (AS,65,32) 
80 SPRITES (3) =MIDS (A$S,97,32) 
90 SPRITES (4) -MIDS (A$S,33,16) 
100 SPRITES (5) =STRINGS (16,0) +MI 
110 X=-100:Y=90:F=2 

111 PUT SPRITE 0, (X-16,7),12,5 
112 PUT SPRITE 1, (X+16,7),12,3 





120 KS=INKEYS:IF KS$="" THEN 120 
130 IF ASC(K$)=29 AND X>0 THEN 
X=X-1:F=2:GOTO 200 

140 IF ASC(KS)=28 AND X<210 THE 
N X=X+1:F=1:GOTO 200 

150 IF ASC(KS)=30 AND Y>0 THEN 
Y=Y-1:GOTO 200 

160 IF ASC(KS)=31 AND Y<160 THE 
N Y=Y+1:GOTO 200 


200 ON F GOSUB 500,600 
210 GOTO 120 

500 PUT SPRITE 0, (X,Y),12,0 

510 PUT SPRITE 1, (X+32,Y),12,4 
520 RETURN 

600 PUT SPRITE O, (X-16,%),12,5 
610 PUT SPRITE 1, (X+16,7),12,3 
620 RETURN 

5000 DATA 0, 0,3,7, 127 
27 7» 0 +.288 « 255 « 255 


1 117, 96, 38, 0,0,0, 
O, 280 , 52, 255 , 255, + 453 
O + 255 225) + 255 py RED 4 

130 , 102, 0,0 

5010 DATA 0, 0,0, 0, 255 
0 , dO 4, D p 25% pp 254: | “255 
; Mo, 12 5, 906 OG DD, 0. ;3 

2 , 144 , 64, 13, 64 , 144 , 

da 4 0:06 ,.0:,0,06 40.0 
, ) 

DA st DID El 
60,0 ,00, 000,0, 0, 
25 20 02,40, 63 227, 23 

dy ad ÃO 6 0 pl 

5030 DATA 0, 0,1, 63, 255 
o ADS. & EDS o O; HED yo EBD é 

do q 295 4 65. ; 102 , 0 4:0.+ 

DO + ADA , 424 + 254. , 4548 , 
2 o, O ; 255. 4 255 ; €55 4 ED 

4 6, 100, 0,0 


A linha 5 estabelece as cores da tela 
— COLOR — e reserva espaço na me- 
mória para acomodar o cordão AS$, que 
é muito longo — CLEAR 300. 

A linha 10 seleciona a tela de 32 co- 
lunas, com sprites grandes e em baixa 
resolução (32 por 32 pontos). Além dis- 
so, desativa a impressão das teclas de 
função na parte inferior da tela. 

O FOR...NEXT das linhas 20 a 40 Iê 
as linhas DATA do final do programa, 
onde está definido o padrão do tanque. 
Estes valores são transferidos para O 
cordão AS$ (veja página 188). 

As linhas 50 a 100 criam os sprites 
que montam o tanque. Observe que o 
cordão A$ é “recortado” pelas funções 
MIDS e LEFTS$. Os sprites criados são: 
0, parte posterior do tanque da direita 
da figura 2; 1, parte dianteira atirando; 
2, parte dianteira do tanque da esquer- 
da atirando; 3, parte traseira. Os spri- 
tes4e 5 contêm a parte dianteira do tan- 
que, cada uma apontada para um lado, 
sem o tiro. 

As linhas 110 a 112 desenham o tan- 
que em sua posição inicial. As linhas 120 
a 160 mudam o valor de X e Y, confor- 
me a tecla do cursor pressionada, mo- 


vimentando o tanque. As condições que 
se seguem à conjunção AND evitam que 
o tanque ultrapasse os limites da tela. F 
é um sinalizador da direção em que o 
tanque aponta. 

A linha 200 utiliza F para decidir em 
que direção desenhar o tanque. O dese- 
nho propriamente dito é feito pelas sub- 
rotinas 500 e 600, 

Note que os sprites da parte diantei- 
ra e traseira são desenhados em niveis 
de prioridade diferentes. Se ambos esti- 
vessem no mesmo nível, o segundo a ser 
desenhado faria o primeiro desaparecer. 
Esta mesma propriedade responde pelo 
desaparecimento do tanque de sua an- 
tiga posição, quando a nova é desenha- 
da. 

As próximas linhas farão o tanque 
atirar ao toque da barra de espaço. 


170 IF ASC(KS)=32 THEN IF F=1 T 
HEN F=3 ELSE F=4 

200 ON F GOSUB 500,600,700,800 
700 PUT SPRITE 0,(X,Y),12,0 
710 PUT SPRITE 1,(X+32,Y),12,1 
720 FOR I=1 TO 50:NEXT 

730 F=-F-2:GOSUB 500:RETURN 

800 PUT SPRITE O, (X-16,Y),12,2 
810 PUT SPRITE 1,(X+16,7),12,3 
820 FOR I=1 TO 50:NEXT 

830 F=F-2:GOSUB 600:RETURN 


Para produzir o tiro, o programa usa 
o sinalizador F, Conforme se tenha pres- 
sionado a barra de espaço, também são 
utilizados os sprites 1 e 2, corresponden- 
tes à parte dianteira dando tiro — nos 
dois sentidos. 

Se você quiser sprites grandes em al- 
ta resolução, faça as seguintes modifi- 
cações: 


10 SCREEN 1,2:KEY OFF 

111 PUT SPRITE 0,(X-8,Y),12,5 
112 PUT SPRITE 1, (X+8,Y),12,3 
500 PUT SPRITE 0,(X,7),12,0 
510 PUT SPRITE 1, (X+16,Y),12,4 
600 PUT SPRITE O, (X-8,7),12,5 
610 PUT SPRITE 1, (X+8,Y7),12,3 
700 PUT SPRITE 0,(X,Y),12,0 
710 PUT SPRITE 1, (X+16,Y),12,1 
800 PUT SPRITE O, (X-8,Y),12,2 
810 PUT SPRITE 1, (X+8,Y7),12,3 


UM SAPO 


O programa a seguir cria o sapo da 
figura 2 e o faz pular ao toque da barra 
de espaço. 


à CLEAR 300:COLOR 12,15,12 
10 SCREEN 1,3:KEY OFF 

20 FOR I-1 TO 12*8 

30 READ A:AS=AS+CHRS (A) 

40 NEXT I 

30 SPRITES (0) =LEFTS(AS, 32) 
60 SPRITES (1)=MIDS (AS,33,32) 
70 SPRITES (2) -MIDS(AS,65,32) 
110 X=50:7=120 





111 PUT SPRITE 0,(X,7),12,0 

120 KS=INKEYS:IF K$="" THEN 120 
170 IF ASC(K$)=32 THEN GOSUB 50 

O 

210 GOTO 120 

500 PUT SPRITE 0,(X+32,Y-64),12 
1) 

510 PUT SPRITE 1, (X+16,7-32),12 
2 

520 FOR I=1 TO 100:NEXT 

530 PUT SPRITE 0, (X+64,Y-64),12 
e] 

540 PUT SPRITE 1, (X+48,Y-32),12 
a 

550 FOR I=1 TO 100:NEXT 

560 PUT SPRITE 0, (X+96,7),12,0 
570 PUT SPRITE 1, (X+48,209),12, 
2 

580 X=X+96 

590 RETURN 

5000 DATA 0,0,0, 0,0, 
Di E pus Ego A qoSd gg OD; 
AZ! +, 294 , 248 , 127 , 0, 0, 
O + Dc. 0, 126 , 192 , 176, 

96 , 240 , 224 , 192 , 192, 32 
Ê 28 F O 


>UL0 DATA 0,0,0,0,0, 
O E GR AR MR 
4 ,. 38, 70, 70,8, 28, 27 
PO q 2SIS , 254. , 252 , 249 
Ao0 q 90 + 0 04, 0: 0» DD, 
O 
35020 DATA. 0, 0,0 ,15 3% 
Oras 0D4 04 0! 
O. 0, 0, 140 , 144 , 144, 
da» dE + 4D , 850 ; 04 0; 
O 40,.0, 0,0, 


A preparação do computador £ a 
criação dos sprites a partir das linhas 
DATA são muito parecidas com o pro- 
grama do tanque, só que o laço 
FOR...NEXT é mais curto. 

A diferença é que não precisamos 
mover O sapo, apenas fazê-lo saltar 
quando a tecla de espaço for pressiona- 
da. As linhas 120 e 170 detectam a ocor- 
rência de pressão na tecla. 

A sub-rotina 500 é responsável pela 
trajetória que o sapo descreve. Para en- 
tender como os sprites foram montados, 
use PUT SPRITE no modo imediato, 
após ter parado o programa com 
<CNTRL> <STOP>. 

Para obter o mesmo efeito com spri- 
tes de alta resolução, faça as seguintes 
modificações: 


10 SCREEN 1,2:KEY OFF 
500 PUT SPRITE O, (X+16,Y-32),12 


PÃO DOT SPRITES À, CURTEM DE 
530 PUT BPRITE 0, (X+32,7-32),12 
Poço PUT SPRITE 1, (X+24,Y7-16),12 
160 PUT BPRITE 0, (X440,7),12,0 
570 PUT SPRITE 1, (X+48,209),12, 
580 KeX446 
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Os jogos vendidos no comércio e os 
produzidos em casa apresentam, em ge- 
ral, uma diferença evidente: os primei- 
ros oferecem ao usuário a opção de usar 
um joystick; os segundos, não. Todavia, 
não é necessário mergulhar nas profun- 
dezas da programação em código para 
incluir este periférico nos programas de 
jogos. 

Você verá neste artigo como utilizar 
um joystick em programas BASIC, tor- 
nando seus jogos mais profissionais e, 
sobretudo, muito mais divertidos. 

Antes de fazer um programa que o «q 
inclua, é preciso obter um joystick com- 
patível com o micro em questão. Os pro- 
gramas que-aqui apresentamos devem 
ser utilizados com o joystick padrão dis- 
ponível para cada computador. Obser- 
vações a respeito se encontram antes de 
cada programa. Mais informações sobre 
joysticks em geral podem ser obtidas no 
artigo da página 287. 
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Existem vários tipos de joystick com- 
patíveis com o Spectrum. Não é possí- 
vel escrever um programa que funcione 
com todos eles, pois cada um tem sua 
própria maneira de se comunicar com 
a máquina. Assim, optamos por um 
programa que funcione com o tipo mais 
comum de joystick: Atari. 





UMA ALÇA DE MIRA ANIMADA 


A primeira parte ao programa permi- 
te a movimentação de uma alça de mira 
na tela do Spectrum. 


100 BORDER 1: PAPER 1: INK 7: 
OVER 1: CLS : INK 8 

110 FOR n=USAR "a” TO USR "h"+7 
* READ a: POKE n,a: NEXT n 

130 LET s=0: LET x=15: LET y= 
10 

140 PRINT OVER 1;AT y,x;CHRS 
148;CHRS 149;AT vy+1,x;CHRS 150 
;CHR$S 151 

200 GOSUB 500 

480 GoToO 200 

500 LET iS=INKEYS: IF ig="" 
THEN RETURN 

| 505 LET i=CODE is 

ME 510 PRINT OVER 1;AT y,x;CHRS 
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o COMPATIBILIDADE EE UMA ALÇA DE MIRA ANIMADA 
| DOS DIFERENTES TIPOS E TORNE SEUS JOGOS 
N a DE JOYSTICKS MAIS PROFISSIONAIS 

E E | COMOUTILIZAR JOYSTICKS E UM TESTE PARA SEU 
EM PROGRAMAS BASIC JOYSTICK 











148;CHR$ 149;AT y+1,x;CHR$S 150 










“CHARS 151 

520 IF i=57 AND vy2>21 THEN LET 
y=y-1 

530 IF i=56 AND v<20 THEN LET 
y=y+1 

540 IF 1=55 AND x<30 THEN LET 
x=x+1 

5h0 IF 1=54 AND x>0 TEEN LET 
Xen] 





560 PRINT OVER 1L;AT w,x;CHRS 
148;CHARS 149;AT vy+1,x;CHAS 150 
: CHARS 151 

570 RETURN 

1000 DATA 14,27,127,31,15,7,15, 
31 

1010 DATA 0,0,0,0,0,192,112,188 
1020 DATA 31,29,30,15,3,1,1,3 
1030 DATA 206,30,124,248,224,64 












(64,224 
1040 DATA 12,12,12,12,252,252,0 
0 





1050 DATA 48,48,48,48,63,63,0,0 
1060 DATA 0,0,252,252,12,12,12, 
12 

1070 DATA 0,0,63,63,48,48,48,48 


O programa começa estabelecendo as 
cores do vídeo. Em seguida, utilizando 
os valores das linhas DATA 1000 a 
1070, cria oito caracteres definidos pe- 
lo usuário. O programa não usa todos 
os caracteres, pois eles desenham não só 
a alça de mira, mas também um pato. 
Este será utilizado pela parte restante do 
programa, que apresentaremos num 
próximo artigo. 

Criados os caracteres, a linha 130 
acerta a posição inicial da mira na tela. 
Além disso, zera o contador de pontos 
— Qu escore —, que também aguarda 
a próxima parte do programa para ser 
utilizado. 

A linha 140 usa o comando PRINT 
para colocar na tela a metade superior 
da mira, usando dois caracteres defini- 
dos pelo usuário. Depois, coloca a me- 
tade inferior, usando dois outros carac- 
teres. A alça de mira é controlada pela 
sub-rotina que começa na linha 500, 
chamada linha 200. 

A sub-rotina que controla o joystick 
usa a função INKEYS para saber em 
que direção o bastão está virado. Isto é 
possível porque o joystick envia carac- 
teres ao micro, como se fizesse parte do 
teclado. Os códigos desses caracteres es- 
tão na figura 2. As quatro direções prin- 
cipais dão os valores 57, 56, 55 e 54. 
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1. A função STICK (n) do MSX assume 
valores diferentes conforme a direção 
dada pelo bastão do joystick. 


A primeira linha da sub-rotina — hi- 
nha 500 — verifica se o joystick está na 
posição central. Nenhum caractere será 
enviado se o bastão ocupar esta posição. 
Em seguida, a linha 505 guarda o códi- 
go do caractere na variável i, usando a 
função CODE. 

A linha 510 apaga a mira, pois é a se- 
gunda vez que PRINT OVER 1 foi usa- 
do (a primeira foi na linha 140). OVER 
1 faz com que o gráfico impresso na pri- 
meira vez desapareça quando é usado 
pela segunda vez. 

Agora que a posição antiga foi apa- 
gada, a nova pode ser calculada. Ela vai 
depender da direção em que o bastão do 
joystick for empurrado pelo jogador. A 
linha 520 percebe o movimento para ci- 
ma; a linha 530 percebe os movimentos 
para baixo; e as linhas 540 e 550 perce- 
bem os movimentos laterais. | 

A sub-rotina termina colocando a al- 
ça de mira em sua nova posição. Obser- 
ve que, como é a primeira vez que a fi- 
gura é desenhada nesta posição, ela apa- 
rece normalmente. 

Para permitir um movimento conti- 
nuo da mira, a linha 480 traz um GO- 
TO 200, fazendo com que a sub-rotina 
do joystick seja chamada repetidamen- 
te. 


Como o ZX-81 não permite a movi- 
mentação de figuras usando só o BA- 
SIC, a mira desenhada pelo programa 
a seguir é apenas um ponto gráfico (um 
quarto de caractere). 

O programa deve ser utilizado com 
o joystick do TK-85 da Microdigital. 


10 LET X=32 


2. O joystick do Atari envia caracteres 
ao Spectrum. Os códigos mudam conforme 
a direção. 


20 LET Y=20 

30 GOTO 170 

40 LET LX=X 

50 LET LY=Y 
100 LET AS=INKEYS 
110 IF A$="" THEN GOTO 100 

115 LET A=CODE AS 
120 IF A=33 AND X>0 THEN LET X= 
X-1 
130 
-X+1 
140 IF A=34 AND Y>O THEN LET Y= 
T=1. 

150 IF A=-35 AND Y<40 THEN LET Y 
=7+1 

160 UNPLOT LX,LY 
170 PLOT X,Y 
180 GOTO 40 

As linhas 10 e 20 armazenam a posi- 
ção central da tela gráficaem X e Y, A 
linha 30 desvia o programa para a linha 
170, para que o primeiro ponto seja im- 
presso. Se ela for suprimida, o primei- 
ro ponto só aparecerá após algum mo- 
vimento do joystick. 

As linhas 40 e 50 guardam os últimos 
valores assumidos por X e Y em LX e 
LY, para que o programa saiba onde 
apagar a última posição do ponto. 

As linhas de 100 a 150 controlam o 
joystick. A linha 100 promove uma 
“varredura” do teclado. Isto é necessá- 
rio porque o joystick envia caracteres ao 
micro, como se fizesse parte do teclado. 
A linha 110 repete a linha 100 até que 
algum movimento seja feito no joystick. 
Ao ocorrer o movimento, a linha 115 
guarda o código do caractere enviado na 
variável A, usando CODE. 

Os códigos dos caracteres enviados 
pelo joystick são 35 (para cima), 34 (pa- 
ra baixo), 33 (esquerda) e 36 (direita) 
(veja a figura 3). As linhas 150, 140, 120 
e 130 detectam, respectivamente, estes 
movimentos. As condições sobre X e Y, 


IF A=36 AND X<63 THEN LET X 
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3. Estes são os códigos dos caracteres 
enviados ao computador pelo 
joystick do TK-85. 


que se seguem à conjunção AND nes- 
tas mesmas linhas, evitam que o ponto 
ultrapasse os limites da tela. 

Finalmente, a linha 160 apaga o pon- 
to de sua última posição, usando UN- 
PLOT, e a linha 170 coloca-o em sua 
nova posição com PLOT. A linha 180 
volta ao princípio. 


q ARES ESTE 


O MSX tem uma função especial — 
STICK (N) —, que facilita muito o con- 
trole de joysticks por programas em BA- 
SIC. Além disso, essa função permite 
que nosso programa seja utilizado mes- 
mo por quem não possui um joystick. 


COMO MOVER SPRITES COM O JOYSTICK | 





O programa a seguir foi feito para 
funcionar com o joystick do HOTBIT 
conectado à tomada frontal direita. 


10 SCREEN 1,2:KEY OFF 

20 FOR I=1 TO 32 

30 READ A:AS=AS+CHRS (A) 

40 NEXT 1 

390 SPRITES (0) =AS 

60 PUT SPRITE O, (115,85),15 
170 X=115:Y=B5 

200 GOSUB 1000 

210 GOTO 200 

1000 A=STICK(1) 

1010 ON A GOTO 1030,1040,1050,1 
060,1070,1080,1090,1100 


1020 RETURN 

1030 Y=Y-1:GOTO 1110 

1040 X=X+1:Y=Y-1:GOTO 1110 
1050 X=X+1:GOTO 1110 

1060 X=X+1:Y=Y+1:GOTO 1110 
1070 Y=Y+1:GOTO 1110 

1080 X=X-1:Y=Y+1:GOTO 1110 

























4. Cada direção corresponde a um 
caractere no joystick do TK-2000. 
Estes são seus códigos. 


1090 X=X-1:GOTO 1110 

1100 X=X-1:Y=Y-1:GOTO 1110 

1110 PUT SPRITE O, (X,Y),15 

1120 RETURN 

5000 DATA 3. 12, 16, 324,3 


2,64 , 64, 127 , 64 , 64,3 
2, SE , dO , 127, 3 ,:0 , 224 
: LS nv LS» LSD q AI) dE 

129 , 255 q 129 , 129 , 1430, 
130 , 132, 154 , 244 , 0 


A linha 10 ativa a tela de 32 colunas, 
com sprites grandes em alta resolução 
— SCREEN 1,2. Além disso, impede 
que o conteúdo das teclas de função se- 
ja impresso na parte inferior da tela, 
usando KEY OFF. 

As linhas 20 a 50 criam um sprite 
grande — dezesseis por dezesseis — pa- 
ra a alça de mira. Os números que defi- 
nem o padrão do sprite são lidos na li- 
nha 5000 (veja página 188). A mira é en- 
tão desenhada em sua posição inicial pe- 
la linha 60. A linha 170 guarda esta po- 
sição em X e Y. 

A linha 200 chama a sub-rotina de 
controle do joystick, que movimentará 
o sprite uma vez. À linha 210 faz com 
que o processo se repita, possibilitando 
o movimento contínuo. 

As linhas 1000 a 1120 controlam o 
joystick, por meio da função especial 
STICK (1). Esta assume diferentes va- 
lores, conforme a posição do joystick 
número 1 (veja a figura 1). STICK (2) 
é usada com o joystick 2; STICK (0) 
possibilita a substituição do joystick pe- 
las teclas do cursor. 

A linha 1000 armazena o valor cor- 
respondente à posição do joystick em A. 
A linha 1010 usa ON A GOTO para des- 
viar O programa conforme o valor de A 
(veja página 76). Isto pode ser feito por- 
que os números que o joystick envia são: 
0, em repouso; 1, norte; 2, nordeste; 3, 





5. O joystick do TRS-Color é analógico; 
cada um dos seus dois potenciômetros 
fornece um valor entre O e 63. 





6. A leitura do joystick analógico do 
Apple só pode ser feita por um programa 
em linguagem de máquina. 


leste; 4, sudeste; 5, sul; 6, sudoeste; 7, 
oeste e 8, noroeste. As linhas para onde 
o programa é desviado calculam os no- 
vos valores de X e Y — linhas 1030 a 
1100. Quando A é igual a zero, o pro- 
grama vai para a linha 1020. 

Depois que a nova posição foi calcu- 
lada, a linha 1110 desenha o sprite ne- 
la. A linha 1120 provoca o retorno da 
sub-rotina. 

Por meio do comando PDL (paddle 
— em inglês, raquete) controla-se ade- 
quadamente o joystick do Apple. Este 
micro possui uma entrada de joystick 
que, na verdade, é uma tomada, onde 
quase todo tipo de aparelho analógico 
ou digital pode ser conectado sem maio- 
res dificuldades. 

O programa a seguir foi feito total- 
mente em BASIC; por isso, não controla 
muito bem o joystick analógico. 


a x, 
team 


RTTESE , 

ai Ds =, 
oa n nm E mu E 0 EO Coma an 
RR E E da mi mn “gn 
isa ES o ass RE, 


DESCUBRA OS CÓDIGOS 





Se seu joystick é de outra marca, 
| experimente este pequeno programa 
para descobrir quais são os códigos dos 
caracteres enviados por ele. 

Caso você tenha um Apple, não uti- 
lize nenhum programa. Pode ser que 
seu joystick utilize outro byte analógi- | 
co. Existem quatro desses bytes, en- 
dereços -16284 a -16281. Tente to- 
das as combinações possíveis nas li- 
nhas 510 e 520. 


10 LET AS = INKEYS 
20 IF AS = "" THEN GOTO 10 
30 PRINT CODE AS 

40 GOTO 10 


Conecte o joystick na tomada direi- 
ta do HOTBIT. Se não funcionar no seu 


MSX, troque a tomada ou substitua o 
número 1 por 2 na função STICK: 









10 PRINTSTICK(1);:GOTO 10 


[O] 


| 10 GET AS 
| 20 PRINT ASC(AS) 
30 GoTo 10 










10 HOME :E = 35000: HIMEM: E 


20 F = INT (E / 256): POKE 232 
E - F * 256: POKE 233,F 

30 FORI=ETOE+4L+57*3 
2 

40 READ A: POKE I,A 


50 NEXT 

60 HGAR : SCALE= 1: ROT= 0:X = 
130:Y7 = 90 

200 GOSUB 500 

210 GOTO 200 

500 LX = X:LY = Y 

510 A = PDL (1):B = PDL (0) 
530 IF A = O ANDY > 8 THEN Y 
= Y - 8: GOTO 580 

540 IF A = 255 ANDY < 144 THE 
NY =Y + B: GOTO 580 

550 IF B=0O ANDX > 8 THEN X 
- X - B: GoTo 580 

560 IF B = 255 AND X < 266 THE 
NX =X + B: GOTO 580 

580  HCOLOR= 0 

590 DRAW 5 AT LX,LY 

600  HCOLOR= 3 

610 DRAW 5 AT X,Y 














620 RETURN 
2000 DATA 20 ,0 


542 40 ,74.,0 
:106:,,0/ 4136 50, 4170:,0 202 + 
ESTAR SO CTA AZ = 7E À 
1106 sl ,138 ,1.,170 ,1:,202 ,1 
RIM. 4 AO SEGA E TAC E 
106 .2 ,138 3,2 
2010 DATA Q A é 9 [45 sda 
SO gl Ass çÕão, 45. ,45 ,45 2 
13 5,63 463 223. A 4,9 4,45 sif3 
159 455 219 74 49 4454173 
159 ,63 ,255 ,19 4,0 
2020 DATA 0,72 ,41 ,45 ,173 
,/1251 ,63 ,223 ,74 ,4) ,45 ,l41l 
SD RAS OS LA si v8ls 
ES 4419 BI 423 43 4209.4255 
219 ,19 40,0 ,0 ,0 
2030 DATA 0,72 ,73 
5219, ,219 ,74.,,,73 ,73 218 ,21 
2107 GRITA c2iD 219,2 
7 410,45 277 137 4219 63 ,2 
CR 6 0/00 40 40. .0 
2040 DATA O ,40 ,77 ,45 ,14l) 
AA OS 409, 03-45 045 547; 
216. ,47 463. 4,63 546 ,iVS 4,73 5,2 
US 210,27 IL SILOS FE 73 A 


13 218 


2050 DATA O «72 ,73 073. ,218 
(27 ,223 ,83,73 ,77 ,209 ,219 
aa) OS ,45. +45 ,45 213 219 
229,03 73 77 ,209 219 ,22 

DAS 0 40 107,0 


As linhas 10 a 50 criam uma tabela 
de figuras a partir das linhas DATA cal- 
culadas com o editor da página 316. 

A linha 60 estabelece as condições ini- 
“ciais de posição, cor e escala na tela grá- 

fica. 


A sub-rotina 500 controla o joystick. 
A linha 210 chama repetidamente « a sub- 
rotina, possibilitando um movimento 
contínuo. 

As linhas 510 e 520 lêem o status dos 


dois paddles conectados ao joystick, por - 


meio dos comandos PDL(0) e PDL(I). 
As linhas 530 a 560 deslocam a mira 


continuamente para a esquerda é para 


cima, a menos que um movimento para 
baixo ou para a direita seja executado. 


| “Isto é o máximo que se pode fazer utili- 


zando apenas o BASIC. 

As condições que sé seguem às con- 
junções AND evitam que a mira ultra- 
passe os limites da tela, 


As linhas 580 e 590 apagam a mira. 


de sua última posição; as linhas 600 e 
610 refazem o desenho na nova. 

A tabela de figuras criada a partir das 
linhas DATA inclui um pato, além da 
mira. Ele será utilizado num próximo 
artigo. 


O programa anterior não funciona- 
rá no TK-2000. Faça as moditicações in- 
dicadas a seguir e use o joystick da Mi- 
crodigital ou as setas do teclado. 


510 
520 
530 
Tom 
540 
NY 


GET AS 
A = ASC (AS) 

IF A = 112 AND Y > 8 THEN 
Y - B: GOTO. 570 | 

IF A = 113 AND Y < 144 THE 
= Y + B: GOTO 570 


550 IF A-8ANDX>õS THENX 
=X -B: GOTO 570 | 
560 IF A = 21 ANDX < 266 THEN 


X =X + 8: GoTo 570 
570 REM 


O joystick envia caracteres ao micro, 
como se fizesse parte de seu teclado: as- 
sim, a linha 510 utiliza GET$ A$ para 
obter a nova posição do joystick. A li- 
nha 120 guarda o código do caractere 
enviado em A. 


Os códigos correspondentes aos mo- 


vimentos do joystick estão na figura 4. 
Esses códigos são os mesmos das setas 
do teclado, motivo pelo qual não é ne- 
cessário dispor de um joystick para usar 
o programa. 

A linha 530 detecta o movimento pa- 
ra cima; a 540, para baixo; a 550 para 
a esquerda e a 560 para a direita. As 
condições que se seguem à conjunção 
AND nestas linhas evitam que a mira ul- 
trapasse os limites da tela. 


As operações após THEN calculam 


as novas coordenadas. | 

Note que o joystick do TK-2000 não 
é auto-repetitivo. A tecla REPEAT con- 
torna parcialmente o problema. 








O TRS-Color tem uma função em 
BASIC para controlar o joystick — 
JOYSTK — que facilita muito em- 
prego deste periférico. O computador 
admite a utilização de dois joysticks, 
mas o programa abaixo só usa um. 

Antes de passar ao programa, conec- 
te seu joystick na tomada traseira mar- 
cada com JOY-DIR. O programa não 
funcionará se o drive de disquetes esti- 
ver conectado. 
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Digite a primeira seção do programa 
e depois rode-a. Você verá uma alça de 
mira surgir na tela. 


10 PMODE 3,1 

20 FOR K=1536 TO 1868 STEP 32 
30 FOR J=0 TO 2 

40 READ A:POKE K+J,A 


E 50 NEXT J,K 


160 SCREEN 1,0 

170 GOTO 170 

4000 DATA 252,15,192,192,0,192, 
48,3,0,12, j. 0,3,48,0 

4010 DATA 0,0,0,3,48,0,12,12,0, 
48,3,0,192, E 192,251,15,192 


Esta parte do programa é bem sim- 
ples. As linhas 20 e 50 usam POKE para 


colocar a mira na tela, com os valores da- 


dos pelas linhas DATA 4000 e 4010. 

A linha 160 ativa a tela de alta reso- 
lução. A linha 170 é temporária e serve 
para manter a tela gráfica ligada. 

Depois de digitar a segunda parte do 
programa, você poderá movimentar a 
mira pela tela usando o joystick. 


60 DIM S(5),B(5),D(4),H(4) 

70 GET (0,0)-(17,11),8.6 

130 -PCLS 

140 LINE(0,0)-(255,191),PSET,B 
170 X=127:Y=95 

200 GOSUB 1000 

210 GOTO 200 

1000 JO=JOYSTK(0) :J1=JOYSTK(1) 
1010 IF J0>58 THEN J0=58 


1020 IF J1>59 THEN J1=59 

1030 IF X=J0*4+10 AND Y=J1%3+6 
THEN 1070 

1040 PUT(X-8,Y-5)-(X+9,Y+5),B,P 
SET 

1050 X=J0*4+10:Y=J1*3+6 

1060 PUT (X-B,Y-5)-(X+9,7+5),8, 
OR | 

1070 RETURN 


Embora o programa empregue ape- 
nas duas matrizes para armazenar dese- 
nhos, a linha 60 dimensiona quatro de- 
las — duas para uso futuro. A linha 70, 
com GET, armazena o desenho da mi- 


rana matriz S. Esta matriz é usada jun- 


tamente com a matriz BR — em branco 


— para animar o desenho, 

A linha 130 limpa a tela para gue, 
quando ela for ligada, o desenho ori; 
“nal da mira não 


“mais bonito. 


Antes da sub-rotina de controle do 


joystick ser chamada pelo GOSUB da 
linha 200, a posi 
acertada pelos valores de X e Y da li- 
nha 170. 

Trataremos agora da parte mais im- 
portante do programa: a sub-rotina que 


faz com que à posição da mira na tela 


A linha 140: E | 
senha uma moldura para tornar o Jogo 


o inicial da mira é 


Rede à posição do osanolÉ Ela 
“ vai da linha 1000 à linha 1070. 


A linha 1000 usa a função JOYSTK. 
JOYSTK (0) verifica a posição horizon- 


“tal do joystick direito, enquanto 
“JOYSTK (1) verifica a posição 


vertical 
do mesmo joystick. JOYSTK (2) e 


“JOYSTK (3) fazem o mesmo para o 


joystick esquerdo. 

Cada uma destas quatro funções po- 
de assumir um valor que vai de O a 63, 
de acordo com a posição dos joysticks. 

Na sub-rotina, a linha 1000 usa as va- 
riáveis J1 e JO para armazenar o valor 
de J OYSTK (1) e JOYSTK (0): assim, 
não é preciso escrever o nome todo da. 
função ao longo do programa. Este pro- 
cedimento é bem comum. Em INPUT, 
utilizamos K$ para armazenar O valor 


— de INKEYS, por exemplo. 


As linhas 1010 a 1020 impedem que 


| a mira saia fora dos limites da tela, le- 
--vando em conta o tamanho do desenho. 


“As linhas 1040 a 1060 são responsá- 


veis pela animação, Primeiro, apagam 
a mira da sua última posição; depois, 


— — calculam a nova posição e nela situam 


a mira, usando PUT. 
A linha 1040 apaga o desenho em sua 


“última posição colocando a matriz em 
branco B, com PUT. A nova posição é 


; Ê = calculada a partir de J1 e JO (veja a li- 
“ha 1050). X e Y são as novas coorde- 


nadas do centro da mira. Observe que, 


E enquanto JO é multiplicado por 4, Ji é - 


“multiplicado por 3. Esses fatores de 


É multiplicação são determinados pela re- 


solução da tela que se utilizou. No nos- 


ses so caso, ela é de 0 a 255 pontos na hori- 


“ zontal, ede 0a 190 na vertical. Quando 


e E multiplicamos os valores dos JOYSTK, 


s adaptando o intervalo de O a 63 


do joystick aos intervalos de O a 255 e. 


E Oa 191 da tela, Esses valores são os mes- 


mos para qualquer PMODE. Você só | 


aa: precisará alterá-los se quiser considerar 


“o tamanho de outra figura que estiver 
| utilizando. O uso de fatores menores 
deixa mais espaço para movimentar fi- 


guras grandes, 

Calculada a nova posição da mira, a 
linha 1060 coloca o desenho na tela, 
usando PUT...OR para não prejudicar 


ES o que estiver desenhado naquelas posi- 


ções. 
A subsrotina funcionará como já foi 
licado após a adição do RETURN da 


linha 1070. Se o joystick não mudasse 
de posições, a mira ficaria piscando na. 


5 tela, uma vez que estaria sendo constan- 
temente apagada e desenhada de novo. 


Para evitar que isso ocorra, a linha 1030 | 


verifica se a posição mudou. Caso O 
joystick não tenha se movido, O nda | 
ma continua na linha 1070, evitando é 


ia de. E pesendaçã 








Em artigo anterior, na-página 334, vi- 
mos algumas das funções matemáticas 
existentes nos computadores, bem como 
sua utilidade enquânto ferramentas grá- 
ficas. Agora, examinaremos mais de 
perto sua atuação eindicaremos outros 
usos para elas. 

As funções que nos interessam no 
momento são o seno e'o cosseno; caso 
ainda não esteja familiarizado com elas, 
aconselhamos consultar O artigo citado. 
Nele, você verá como estas funções es- 
tão relacionadas com a posição de um 
ponto ao redor de um cirtulo, e como 
usá-las para calcular as coordenadas de 
qualquer ponto. O programa da busso- 
la, no artigo da página 334, utiliza o sê- 
no e o cosseno para posicionar as mar- 
cações de número em seus devidos lu- 
gares, ao redor da bússola. 


COMO DESENHAR UM RELÓGIO 


Os programas apresentados até ago- 
ra não têm muita utilidade prática. Po- 
rém, cômo veremos detalhadamente nos 
próximos artigos, as funções trigonomé 
tricas oferecem variadas possibilidades 
de uso. Por enquanto, vamos nos con- 
centrar no desenho de um relógio. Vo- 
cê já deve ter pelo menos uma idéia de 
como fazê-lo, com base ho primeiro ar- 
tigo da série. 

O princípio é o mesmo que orientou 
o desenho da bússola, com uma diferen- 
ça: em vez de fornecermos um ângulo, 
o computador precisará selecionar sozi- 
nho os ângulos a/serem mostrados, 
aumentando-os com o tempo. 

Os programas à seguir calculam as 
posições dos ponteiros, usando SIN e 
COS, para que mostrem a hora certa. 

Embora seja fácil montar um relógio 
de doze horas, este programa desenha 
um relógio de 24 horas, com numeração 
de 1 a 24 em seu mostrador. Dessa ma- 
neira, podéremos examinar melhor as 
rotinas que imprimem os números. De- 
pois de digitar e rodar o programa, ve- 
remos/0 que SIN e COS fazem exata- 
mente. 

No programa da bússola, ós núme- 
rós ao redor do aparelho marcavam os 
váriós.graus; no relógio, mareâm as ho- 
ras. Os múmeros de 1.a-24 são selecio- 
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Já aprendemos a usar funções 
matemáticas para fazer gráficos 
circulares. Veremos agora como 


empregar SIN e COS na elaboração 
de desenhos mais sofisticados. 





— 


== 





EE FAÇA UM RELÓGIO MECÂNICO 








E COMO POSICIONAR 

— OS NÚMEROS 
= DESENHE OS PONTEIROS 
a ACRESCENTE UM ALARME 


nados por um laço. FOR...NEXT e im- 
pressos na tela em coordenadas deter- 
minadas por SIN e COS. 

Parte do programa para o TRS- 
Color e o MSX parecerão familiares 
a quem usou a rotina para desenhar ca- 
racteres na tela de alta resolução, dada 
no artigo da página 232. Repetimos es- 
ta rotina no programa dado à seguir 
porque o computador não imprime ca- 
racteres na tela em PMODE 4 ou 
SCREEN 2 e 3, mas com ela podemos 
colocar os números ao redor do marca- 
dor do relógio. 

Se você salvou a rotina citada, carre- 
gue-a no seu computador para não pre- 
cisar digitá-la novamente. Depois, acres- 
cente essas linhas ao programa abaixo. 

A mesma rotina também serve para 
colocar números no programa da bús- 
sola visto anteriormente; basta adaptá- 
lo para isso. Quando o marcador é de- 
senhado, o computador automaticamen- 
te desenha o ponteiro de segundos do re- 
lógio; este funciona como o ponteiro de 
segundos de um relógio real. O ângulo 
inicial, no topo do círculo, é de O graus, 
e aumenta gradualmente até chegar nos 
360 graus, novamente no topo. A velo- 
cidade do ponteiro de segundos é deter- 
minada por um comando PAUSE ou pe- 
lo temporizador no computador, 

Os ponteiros do relógio são movi- 
mentados por meio de um laço 
FOR...NEXT, no Spectrum. O progra- 
ma do TRS-Color usa uma 'variável 
que é atualizada pelo temporizador ca- 
da vez que se roda o programa (este é 
um laço continuo). O ponteiro de segun- 
dos movimenta-se sempre que a variá- 
vel acusa que já se passou um segundo. 


5 CIRCLE 134,92,70 

6 LET q=-1 

10 FOR n=1 TO 24 

20 PRINT AT 10-10*CO5 (n/12* 
PI),16+10*SIN (n/12*PI);n 

30 NEXT n 
40 FOR t=0 TO 20000 
50 LET a=t/30*PI | 
60 LET sx=65*5IN a: LET sy=65 


*COoS a 

70 PLOT 134,92: DRAW OVER 1; 
5X, &Y 

80 PAUSE 42 


| | E ] 





1 * COMO ADICIONAR 

| NÚMEROS ROMANOS 
"H DESENHOS ABSTRATOS 
a O USO DE SIN E COS EM 


DESENHOS MAIS ELABORADOS 


90 PLOT 134,92: DRAW OVER 1; 
Sx,8Y 
100 NEXT t 


10 PMODE 4,1 

20 DIM LES (26) 

30 PCLS 

40 FOR K=0 TO 26:READ LES(K):NE 
XT 

50 FOR K=0 TO 9:READ NUS(K) :NEX 
T 

60 DATA BR2,ND4R3D2NL 3ND2BE2, ND 
4R3DGNL2ZFDNL 3BU4BR2, NR3D4R3BUÁB 
R2, ND4R2FD2GL2BE4BR, NR3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4BR, NR3D4R3 
U2ZLBE2BR, DABRIUZNL 3UZBRZ, ND4BR2 
, BD4REU3L2H3BR2, D2ND2NF2E2BR2 
80 DATA D4R3BU4BR2, ND4FREND4BR? 
, ND4F3DU4BR2, NR3D4RIV4BRZ, ND4R3 
D2NL3BE2, NR3D4R3NHU4BRZ 

90 DATA ND4R3D2L2F2BU4BR2, BD4R3 
U2ZL3U2R3BR2, RND4RBR2, D4RZU4BR2, 
D3FEU3BR2, DAEFU4BR2 

100 DATA DFZDBL2UEZUBRZ,DFND2EU 
BR2,R3G3IDR3IBU4BR2 

110 DATA NR2D4R2U4BR2, BDEND4BRZ2 
, R2D2L2D2R2BU4BR2, NR2BD2NR2BD2R 
2U4BR2, D2R2D2U4BR2, NR2D2R2D2L2B 
E4, D4R2U2L2BE2BR2, R2ND4BR2, NR2D 
4R2U2NL2U2ZBR2, NR2D2R2D2U4BR2 
200 MX=127:SX=127:MY=95:8Y=95 
210 SCREEN 1,1 

220 CIRCLE (127,95),60,1 

230 PI=ATN(1)/15 

240 FOR K=5 TO 120 STEP 5 

250 LINE(127+55*SIN(K*PI),95-55 
*COS (K*PT))-(127+59*SIN(K*PI),9 
5-59xCOS (K*PI));, PSET 

260 AS=MIDS (STRS(K/5),2):DRAW"B 
M"+STRS (INT (123+68*SIN(K*PI)))+ 
","+STRS (INT (92-68*COS (K*PI)))+ 
"C5S6” :GOSUB 1000 

270 NEXT K 

280 IF TIMER<50 THEN 280 

290 TIMER=0:T=T+1 

300 IF T=86400 THEN T=0 

310 H=T/3600 

320 M=T/60-INT (H) *60 

330 S=T=INT (M)*60-INT (H) *3600 
340 LX=SX:LY=SY 

350 SX=127+45*SIN(S*PI*2) :Sy=95 
-45*C08 (S*PI*2) 

360 LINE (127,95)-(SX,SY), PSET 
370 LINE(127,95)-(LX,LY), PRESET 
3B0 LINE(127,95)-(MX,MY),PRESET 
390 MX=127+30%SIN (MXPIX2) :MY=95 
-30*COS (MXPI*2) 

400 LINE(127,95)=4MX,MY),PSET 


— 
| 
| | | 
| 
| | 


410 LINE(127,95)“(HX,HY), PRESET 
420 HX=127+20*SIN(H*PIX5) :HY=95 
-20*COS (H*PI*5) 

430 LINE(127,95)-(HX,HY),PSET 
440 GOTO 280 

1000 FOR M=1 TO LEN(AS) 
1010/B$=MIDS (AS,M,1) 

1020 IF B$>="0" AND B$%e”9" /THE 
'N/DRAW NUS (VAL (B8) ) :GOTO “1650 
1030 IF B$="" THEN N= 


1060 RETURN 


20 DIM LES(26) 


A 40 FOR K=0 TO 26:READ LES(K) :NE 
O ELSE N=A 


50 FOR K=0 TO-“9:READ NUS (K) :NEX 


1040 DRAW--LES (N) 


60 DATA BR2,ND4R3D2NL3ND2BE2,ND 
4R3DGNL2FDNL3BU4BRZ, NR3ID4RIBU4B 
R2,ND4R2FD2GL2BE4BR, NA3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4dBR,NR3D4R3 
UZLBE2BR, D4BRJU2NL 3UZBR2, ND4BRZ2 
+, BDAREU3L2R3IBR2, D2ND2NF2E2BR2 ' 
80 DATA D4R3BU4BR2, ND4FREND4BR? - 
+ ND4F 3DU4BR2, NR3D4R IVA BRZ2,ND4R3 
D2NL3BEZ, NR3D4R3INHU4BRZ 
90 DATA ND4R3D2L2F2BU4BRZ2, BD4R3 
UZL3UZR3BR2, RND4RBR2, DARZU4BRZ, 





| 
| 


D3FEU3JBRZ, DAEFU4BRZ2 
1 100 DATA DF2DBL2UEZUBRZ2,DFNDZEU 
BR2,R3GIDRIBU4ABRZ 
110 DATA NR2D4R2U4BR2, BDEND4BR2 
| R2ZD2L2D2R2BU4BR2, NR2BD2NR2BD2R 
2ZU4BR2, D2ZR2D2U4BR2, NR2D2R2D2L2B 
E4, DARZ2U2L2BE2BR2, R2ND4BR2, NR2D 
4R2U2NL2UZBR2, NR2D2R2D2U4BRZ 
200 MX=127:5X=127:MY=-95:57=95 
210 SCREENZ 
220 CIRCLE(12 
230 PI=ATN( 
10 FOR K 
250, LINEA 







Es rh 

















330 
40 LX=SX:LY ST 
350 SX= 


360 LINE(127,S 
370 LINE (127,5 
380 LINE(127,95 
390 M 








430 LINE(127,55 
440 GOTO 280 
1000 FOR M=1 










1030 IFBS="" 
c(BS)-64 | 


im relógio de 24 horas. 





1050 NEXT 
1060 RETURN 


O ZX-81 não possui o comando 
DRAW; assim, para fazer o relógio, 
precisaríamos desenhar os ponteiros 
ponto por ponto, via comando PLOT., 
Além disso, sua tela gráfica não é de al- 
ta resolução, como nos outros compu- 
tadores, Por. ambos os motivos, uma 
versãó para ele não ficaria muito boá; 
nortanto, não a fizémos. 

O capítulo 19 do m 
contém um programa de | 
deríamos tomar como exemplo, | 






















sem movimento. E o 


pode, por exemplo, ajustar uma variá- 
vel extra para o ângulo, em vez de usar 
(2*PI/n) no PRINT AT. 

A rotina do Spectrum segue a mes- 
ma fórmula das outras, mas parece di- 
ferente, porque utiliza um método dis- 
tinto para o PRINT AT numa posição 
da tela: em vez do primeiro número de- 
pois do comando ser a coordenada x, é 
iToQ denada y. Além disse;0 valer O 
para a teordenada y não corresponde é 

inferior da tela,ínas ao topo desta. 


[o 


spectrum: 


























Tente istó, no 


PRINT AT 0,04"a” 


xemplo acimê 
Jos que o laço 
la o comando 
ada versão. Na 
icionaria ém 


















ia, conforme o 













»'passa pelo la- 
24 segmen- 


rotina especial para dgsenhar letras na 











tela gráfica, seus programas são um 
pouco diferentes. Na verdade, eles não 
imprimem um número relacionado com 
o STEP que controla suas posições an- 
gulares. O que imprimem é acessado — 
ou chamado — pelo comando STRS, na 
linha que controla a impressão. STR$ 
simplesmente consulta a rotina que de- 
senha letras; não está relacionado com 
a posição onde os números são desenha- 
dos, a qual é determinada pela variável 





Como o circulo tem 360 graus, para 
se imprimir 24 números ao redor do re- 
lógio, em intervalos iguais, eles devem 
ser posicionados a cada 360/24 (15) 
graus. Do mesmo modo, como há 2*PI 
radianos num círculo completo, os nú- 
meros estão posicionados a cada 
2*PI/24, ou PI/12 radianos. 

Observe que em todos os laços o pri- 
meiro número é o primeiro salto, e não 
o O (1 no Spectrum, 5 no TRS-Color e 
MSX). Por isso, o primeiro número im- 
presso — ou desenhado, como é o caso 
do TRS-Color e do MSX — estará em 
1 hora e não em 24 horas, 

O restante do programa usa SIN e 
COS para calcular as posições dos pon- 
teiros, e uma variável ou o temporiza- 
dor interno do computador para acom- 
panhar o tempo, garantindo, assim, que 
o ponteiro de segundos se movimente a 
cada segundo. 


COMO ACESSAR OS DADOS 





O método para dizer ao computador 
o que ele deve imprimir não precisa ser 
aquele utilizado no exemplo do relógio. 
Poderíamos armazenar os números em 
DATA e depois ler (READ) estes núme- 
ros, um de cada vez, à medida que 





E Espiral no Spectrum, 








o computador passasse pelo laço 
FOR...NEXT. 

Pode parecer um desperdício de me- 
mória mas, na verdade, este método nos 
permite fazer mudanças interessantes. 
Por exemplo: existem relógios com alga- 
rismos romanos no lugar dos números 
convencionais. Usando uma variável de 
cadeia, e armazenando em DATA as le- 
tras, e não os números, poderemos so- 
fisticar ainda-mais nosso relógio. 

Talvez seja preciso mudar o tamanho 
e/ou a posição do círculo para que os 
algarismos romanos caibam na tela (o 
número 8, por exemplo, é VIII, o que to- 
ma bastante espaço!). 

Também poderíamos fazer um reló- 
gio de 24 horas em algarismos romanos. 
E é fácil, usando este método, mudar 
um relógio de 12 para um de 24 horas. 

Adicionar um alarme ao programa 
também não será difícil. Para isso, pre- 
cisariamos calcular, usando SIN e COS, 
a posição exata em que o ponteiro vai 
estar na hora ajustada para O disparo do 
alarme. Uma nova linha com um 
IF... THEN avisaria ao computador que 
a variável que ajusta a posição do pon- 
teiro é igual à calculada para o alarme 
e, então, o computador emitiria algum 
som. 

Usando os mesmos princípios, seria 
possível não só fazer um relógio de 12 
horas ou de um dia, mas de uma sema- 
na, um mês ou até mesmo um ano. O 
único limite é a quantidade de informa- 
ção que podemos colocar na tela. 





DESENHOS ABSTRATOS 


Até agora, empregamos SIN e COS 
para coisas úteis como relógios, busso- 
las e gráficos. Mas talvez seu uso mais 


Flor no MSX. 








comem 





e, E 


- | | 
| | 





interessante esteja na elaboração de grá- 
ficos abstratos, obtidos com a manipu- 
lação adequada das duas funções. 

Desenhando séries de círculos e elip- 
ses, já produzimos algumas figuras in- 
teressantes. Se, por exemplo, movêsse- 
mos O centro do circulo ou, então, au- 
mentássemos seu raio a cada volta, o re- 
sultado seria ainda melhor. Essas mu- 
danças são muito fáceis de fazer: preci- 
saremos apenas acrescentar algumas li- 
nhas às rotinas conhecidas. 


COMO FAZER UMA ESPIRAL 





No artigo anterior, apresentamos 
uma rotina que desenha um círculo pon- 
to a ponto. Com algumas mudanças — 
por exemplo, o aumento gradativo do 
raio —, poderemos obter uma espiral, 


em vez de um círculo. As versões a se- 
guir fazem exatamente isto. 


10 LET 2z=0 

50 FOR n=0 TO B*PI STEP PI/10 
60 PLOT 128+(5+z) *SIN n,88B+(5 
+z) *COS n 

70 LET z=z+1 

BO NEXT n 


10 PMODE 4,1 

20 PCLS 

30 SCREEN 1,1 

40 PI=4*ATN(1) 

50 FOR N=0 TO 10*PI STEP PI/10 
60 PSET(127+(5+Z) *SIN(N),95+(5+ 
Z) *COS(N),5) 


70 Z=Z+1 
80 NEXT N 
90 GoTo 90 


Dto 


10 HGR2 
20 HCOLOR= 3 


30 PI = 4 * ATN (1) 





40 FORN = O TO B* PISTEPPI 


f 10 
50 HPLOT 140 + 45 + Z) * 
(N),80 + (5 + Z) * cos (N) 


60 Z=Z2+1 
70 NEXT N 
80 GOTO 80 


DM 


10 SCREEN 2 
20 COLOR 1,15 
30 CLS 


SIN 









| 
| 
| 


40 PI=4*HATN(1) 

50 FOR N=0 TO 10*PI STEP PI/10 
60 PSET(128+(5+Z) *SIN(N),96+(5+ 
Z) *COS(N)),1 

70 Z=Z+1 

80 NEXT N 

90 GOTO 90 


A diferença entre este programa e o 
que desenha um círculo é a variável Z. 
Esta começa em 0, aumentando cada 
vez que o computador passa pelo laço. 
A mudança que ela traz está nos cálcu- 
los da linha 60 no Sinclair, TRS-Color 
e MSX e da linha 50 no Apple. 

O ponto desenhado é controlado, co- 
mo no círculo, pelo SIN e COS da va- 
riável de controle no laço. O aumento 
do número que multiplica o SIN e COS, 
quando o computador passa pelo laço, 
faz com que os pontos sejam desenha- 
dos cada vez mais longe do centro. A va- 
riável Z é responsável pelos consecuti- 
vos aumentos, que resultam na espiral 
crescendo para fora. 

Como no programa do circulo, po- 
demos obter resultados diferentes se mu- 
darmos o salto (STEP) — linha 40 no 
Apple e 50 nos outros — ou a dimen- 
são do aumento de Z. Alguns STEP in- 
teressantes são 2, 5,PI e 2*PI. Experi- 
mente-os e descubra porque os resulta- 
dos são diferentes (lembre-se de que os 
computadores trabalham com radianos, 
e que um circulo tem 2*PI radianos). 

Podemos fazer espirais elípticas do 
mesmo modo que fizemos elipses na pri- 
meira versão deste programa: basta mu- 
dar o número dentro dos parênteses na 
linha 60 (linha 50 no Apple). 


SOFISTIQUE OS DESENHOS 





Existe um brinquedo infantil que uti- 
liza rodas de plástico para desenhar. A 
criança coloca uma roda menor dentro 
de uma maior, e a ponta de uma caneta 
num dos furos da roda menor; moven- 
do a roda menor pelo lado interno da 
maior, a caneta gira. O desenho obtido 
é muito interessante. 

O centro da roda menor está sempre 
se movendo quando a criança está de- 
senhando, o que resulta numa série de 
espirais contínuas. O computador con- 
segue um efeito semelhante, desenhan- 
do círculos cujos centros estão em cons- 
tante movimento, 

Os programas que se seguem fazem 
isso, sendo que, para o Spectrum, a es- 
colha da cor é aleatória. 





10 CLS : 
ILET q=0 


LET x=0: LET p=0: 


20 LET z=INT (RND*7): INK z: 
LET a=INT (RND*50) 

30 LET b=INT (RND*50) 

40 FOR n=0 TO 200*PI STEP b/ 
100 

50 IF INKEYS<>"”" THEN GOTO 
10 

60 LET p=128+(a-b)*SIN n: 
q=-88+(a-b) *COS n 

70 PLOT p+b*SIN x, qa+b*COS x 
BO LET x=x-a/1074 

90 NEXT n 
110 GoTo 20 


10 PMODE 4,1:PCLS:SCREEN 1,1 

20 PI=4*ATN(1) 

30 A=RND(50)-1:B=AND(50)-1 

40 FOR N=0 TO 200*PI STEP B/100 
50 IF INKEYS<>"" THEN 10 

60 P=128+(A-B) *SIN(N) :Q=95+(A-B 
) *COS (N) 

70 PSET (P+B*SIN(X),Q+B*COS(X), 
5) 

BO X=X-A/1074 


LET 


90 NEXT 

100 GOTO 30 

10 HGR2 : HCOLOR= 3 

20 PI = 4 * ATN (1) 

30 A = INT ( RND (1) * 100) 
40 B = INT ( RND (1) * 40) 

50 FORN=0OTOZ00*PI STEP 
B / 100 

60 wWw = PEEK ( - 16384) 

70 POKE - 16368,0 


80 IF W> 127 THEN 10 

90 P = 140 + B * SIN (N):Q = 6 
O + B* cos (N) 
100 HPLOT P + B * 
B * COS (X) 
110 X = K-A/ 
120 NEXT N 

130 GcoTo 30 


a 


10 SCREEN2Z:COLOR1,15:CLS 

20 PI=4*ATN(1) 

30 A=INT(RND(1)*200)+20 

40 B=INT(RND(1)*40)+10 

50 FOR N=0 TO 200*PI STEP B/100 
60 IF INKEYS<>"* THEN 10 

70 P=128+BXSIN(N) :Q=96+B*COS (N) 
80 PSET(P+B*SIN(X),Q+B*COS (X)), 


SIN (X),0 + 


1000 


1 
90 X=X-A/1000 
100 NEXT N 
110 GoToO 30 

Nota-se facilmente que o laço 
FOR...NEXT é uma rotina criadora de 
círculos: os laços para cada computador 
são 
FOR N=0 TO 200*PI 

Como nos outros programas deste ar- 


tigo que usam SIN e COS, essas duas 
funções também estão inclusas no laço. 
Elas calculam a posição do próximo 
ponto a ser desenhado, embora, é cla- 
ro, os cálculos sejam um pouco mais 
complicados do que um simples “SIN 
N” ou “COS N”. 

Os demais cálculos nesta linha servem 
para incrementar o resultado da expres- 
são do SIN ou COS, para que ele possa 
representar uma posição na tela. Por es- 
sa razão, o centro da tela gráfica de ca- 
da computador também faz parte dos 
cálculos. Se olharmos com atenção, en- 
contraremos o centro da coordenada 
“XxX” numa metade da linha e o centro 
da coordenada '“'Y'* na outra. 

O cálculo envolve ainda duas variã- 
veis; como elas recebem valores aleató- 
rios no início de cada programa, este 
sempre executa desenhos diferentes ao 
ser rodado. Tente mudar o valor dessas 
variáveis e observe a diferença. 





ALTERAÇÕES 


Podemos fazer outro tipo de alte- 
ração: mudar o STEP do laço 
FOR...NEXT. O resultado será o au- 
mento ou a diminuição da densidade dos 
pontos, conforme o STEP seja aumen- 
tado ou diminuído. Para a obtenção do 
desenho, o centro do circulo deve mu- 
dar cada vez que um ponto é desenha- 
do. Para isso, colocamos o próprio cen- 
tro do círculo num outro círculo, que gi- 
ra a cada passo do laço. O efeito é pro- 
duzido pelo segundo grupo de cálculos 
do SIN e COS, baseado em x. Essa va- 
riável decresce levemente cada vez que 
o computador passa pelo laço. 

Tente alterar o tanto que a variável 
(x) diminui e veja o que acontece com 
os desenhos. Estes seis valores trazem 
resultados interessantes: A/10,/A/-10, 
A/-50, A/0.5, A/0.1, A/0.001. 

Todas as versões permitem que rei- 
niciemos o programa a qualquer hora, 
bastando apertar uma tecla. O Spec- 
trum, o TRS-Color e o MSX usam o 
INKEYS$ para verificar se alguma tecla 
foi pressionada, enquanto o Apple bus- 
ca essa informação na memória (linhas 
60 a 80, já comentadas em artigos ante- 
riores sobre PEEK e POKE). 

Examinaremos ainda diferentes usos 
para funções trigonométricas e angula- 
res. No próximo artigo desta série, tra- 
taremos de quadrados, cubos, raizes 
quadradas e outras ferramentas podero- 
sas para controlar o comportamento das 
variáveis. Você terá, assim, novas opor- 
tunidades de dar às funções empregos 
que, à primeira vista, não parecem es- 
tar relacionados com a matemática. 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NnnEnENO PRÓXIMO NÚMERONEEEHHHI! 


PROGRAMAÇÃO BASIC 
Os códigos de controle são muito úteis para uma série de 
truques de programação. Veja como usá-los nos micros MSX. 


APLICAÇÕES 


Você acha difícil converter metro em polegadas ou galão 
em litros? Nosso programa conversor resolve esse problema. 


PROGRAMAÇÃO BASIC 
O código ASCII foi concebido para possibilitar a transferência 
de dados de um computador para outro. Aprenda a utilizá-lo. 
PROGRAMAÇÃO DE JOGOS 


Divirta-se: pratique tiro ao alvo, caçando 
patos... no computador. 





